home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / MINX.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.4 KB  |  19 lines
  1.  
  2. *                                                                               
  3. *SELECT MINIMUM OF DOUBLE A OR B (VARIABLES)                                    
  4. *                                                                               
  5. MINX   $MACRO  A,B                                                              
  6.        SOVM              SET OVERFLOW MODE                                      
  7.        LDAX :A:          LOAD :A:                                               
  8.        SUBX :B:          COMPARE TO :B:                                         
  9.        $VAR L,L1,L2                                                             
  10.        $ASG '$$LAB' TO L.S                                                      
  11.        $ASG L.SV+2 TO L.SV                                                      
  12.        $ASG L.SV-1 TO L1.V                                                      
  13.        $ASG L.SV   TO L2.V                                                      
  14.        BLZ  L$:L1.V:     BRANCH IF :A:<:B:                                      
  15.        LDAX :B:          LOAD :B:                                               
  16.        B    L$:L2.V:     TO CONTINUE                                            
  17. L$:L1.V: LDAX :A:        LOAD :A:                                               
  18. L$:L2.V: ROVM            CONTINUE                                               
  19.        $END